home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 106 / 106.d81 / image maker (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  42 lines
  1. 0 poke53280,.:poke53281,.:poke646,12:printchr$(14)
  2. 5 dv=8
  3. 10 read d$,lo,hi:if d$="[197]nd of [198]ile" then goto 500
  4. 15 sys57812 d$,dv,0:poke780,.:poke781,lo:poke782,hi:sys65493
  5. 20 goto 10
  6. 498 :
  7. 499 :
  8. 500 poke 650,128: rem repeating keys
  9. 510 poke53269,.: rem turn sprites off
  10. 600 rem reset the image maker program
  11. 610 sys57812"[211]et-up [194]ytes1.o",dv: poke780,.: poke781,52: poke782,3: sys65493
  12. 615 sys57812"[211]et-up [194]ytes2.o",dv:poke780,.:poke781,.:poke782,96:sys65493
  13. 620 sys57812"[211]et-up [194]ytes3.o",dv:poke780,.:poke781,.:poke782,80:sys65493
  14. 1000 sys 24576
  15. 1001 poke53269,.:rem sprites off
  16. 1005 q=peek(251):if q=asc("r")then 500
  17. 1009 printchr$(147)
  18. 1010 goto60000
  19. 9998 :
  20. 9999 :
  21. 10000 rem ------ ml file ------
  22. 10010 data "[210]aster [201]nter.o",.,30
  23. 10020 data "[201]mage [205]aker.spr",.,32
  24. 10030 data "[201]mage [205]aker1.o",.,33
  25. 10040 data "[201]mage [205]aker2.o",.,49
  26. 10050 data "[211]ubroutines.o",.,67
  27. 10060 data "[201]mage [215]riter.o",.,74
  28. 10065 data "[196]ata [215]ords.o",.,21
  29. 11000 data "[197]nd of [198]ile",.,.
  30. 19998 :
  31. 19999 :
  32. 49999 end
  33. 50000 dv=8:open15,dv,15,"s0:[201]mage [205]aker":close15:save"[201]mage [205]aker",dv
  34. 50001 verify"[201]mage [205]aker",dv
  35. 59999 rem zzzzzzzzzzzzzzzzzzzzzzzzz
  36. 60000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen60020
  37. 60010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then60030
  38. 60020 next:print"[147]":poke186,8:end
  39. 60030 q$=chr$(34):poke646,peek(53281):print"[147]"
  40. 60040 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  41. 60050 print"run:":poke631,13:poke632,13:poke198,2:end
  42.